Am 


برنامج متابعة حضور الطلاب للسكاشن 
مجموعه رقم ٤‏ 
بطاة A‏ 
لابد لنا ونحن نخطو خطواتنا الأخيرة في الحياة الجامعية من وقفة نعود إلى أعوام قضيناها بالمعهد مع أساتذتنا الكرام الذين 
قدموالناالكثير باالين بذلك جهودا كبيرة فى بناء جيل الغفد لتبعث الأمهة من جديد 
وقبل أن نمضي تقدم أسمى آيات الشكر والامتنان والتقديروالمحبة إلى الذين حملوا أقدس رسالة في الحياة 


إإإ سى جمرب ğÈشع‏ أساتذتناالأفاش ل. 

فواجب عليناشكرهم ووداعهم ونح نخطو خطوتنا الأوالي في غمارالحياة 

ونخص بالجزيل الش-ر والعرفأان إلى كل من أشعل شمعة في دروب عملنشا 

وال من و قف علي الف ابر وآاعط ي من خض ية فة ليني ن درينتا 

إلى الأساتذة الكرام في المعهد العالى لعلوم الكمبيوتر وتكنولوجيا الاداره بسوهاج ونتوجه بالشكر الجزيل إلى 
الاستاذ الدكتور 


استاذ الحاسبات كلية الحاسبات والمعلومات جامعة اسيوط 
الدكتور 


استاذ الحاسبات بكلية العلوم بسوهاج 
الذين تفضوا بالإشراف على هذا البرنامج فجزاهم الله عنا كل خير فلهم منا كل التقدير والاحترام 
وكذلك نشكر كل من ساعد على إتمام هذا البرنامج وقدم لنا العون ومد لنا يد المساعدة وزودنا بالمعلومات اللازمة لإتمام 
هذا البرنامج ونخص بالذكر: 
الاستاذه 


تطبيق ادارة شئون الطلاب لحل مشكلة الاحتفاظ بمعلومات الطلاب فى السكاشن والقيام بمعالجة 
العمليات الاساسيه اليوميه والسنويه فى اقسام شيئون الطلاب مثل 

(الدرجات نسبة الحضور- تقييم الطالب) 

النظام يمكن ان يعمل متكاملا مع نظام الحضور واعمال السنه 

يتيح برنامج المستخدم اكواد وبيانات جميع مكونات واجزاء النظام مثل:- 


.١‏ بيانات للطالب:- 
(رقم الطالب/الاسم/تاريخ الميلاد/العنوان/الحاله/الفرقه/البريد الالكترونى) 
۲. حضور الطلاب فى السكاشن:- 
(رقم المعيد/رقم الطالب /رقم القاعه/رقم الماده/تاريخ السكشن/الميعاد/الفرقه /الترم) 
یتم ادخل البیانات من خلال نمازج واضحه تحتوی على وسائل تحکم وتحتوی على قوائم جاهزه للاختیار منها بکل سلاسه ویسر. 


تحليل النظام:- 


تعريف المشكله 
ان المشكله الحقيقيه فى نظام شيئون الطلاب فى مؤسسه تستخدم الطريقه اليدويه فى تنفيز جميع الاعمال والمهام 
المتعلقه بالطلاب يؤدى الى ظهور الكثير من المشاكل ومنها:- 


ظهور بعض الاخطاء فى السجلات والكشوفات اثناء تنفيز الاعمال والمهام المختلفه 
صعوبة متابعة حالة الطالب طوال فترة انتظام الدراسه من حيث (الغياب/الانقطاع/الفصل) 
عدم توفرالسلامه والامان اللازمه للبيانات واحتمال تعرضها للتلف اوالحريق او السرقه فى وقت 
صعوبة استرجاء البيانات عن الطلاب والمعيدين لكثرة السجلات وعم ترتيبها بشكل جيد 
ضياع الوقت فى اجراء جميع العمليات الخاصه بالطالب بسبب الروتين واستخدام الاسلوب اليدوى 
صعوية اجراء عمليات الارشفه وحفظ الوثائق والملفات الخاصه بالطلاب وذلك لكثرة تلك الوثائق 
وللتخلص من جميع وعيوب المشاكل النظام اليدوى نقوم بانشاء نظام معلومات يعتمد على الحاسبات والذى من خلاله نسعى الى 
تحقيق الاهداف التاليه:- 
التقليل من الاخطاء فى المعلومات الخاصه بالطلاب 
سهولة استرجاع البيانات عن الطلاب وتقييم كل طالب 
المحافظه على البيانات والمعلومات فى النظام وحمايته من المخاطر المختلفه 
سهولة اعداد التقارير المختلفه عن الطلاب والمعيدين ومتابعة خالتهم اثناء الدراسه 
السرعه والكفاءه والموثوقيه فى جميع الاعمال والمهام التى يقوم بها النظام 
تسهیل اجراءات الارشفه وحفظ الوثائق 
الحد من عمليات التزوير والتزويف فی الوثائق الخاصه بالطالب وكذلك الحد من التلاعب بالبيانات الخاصه بالطلاب 


١-دراسة‏ الجدوي 


ا 


١-الهدف‏ من المشروع:- 
متابعة الطلاب فى تسجيل الحضور والغياب فى السكاشن ودرجات اعمال السنه 
١-دراسة‏ الجدوى التفنيه:- 
تعنى بالدراسه التقنيه وصف المتطلبات ومستلزمات النظام التكنولوجيه بجانبيها المادى والبرمجى 


hard ware -:ىدامnئl الجانب‎ 

من خلال دراستنا لاحتیاجات النظام المادى الكفيله لتشغيل النظام بكفاءه وسرعه عاليه وکكزلك من خلال دراسة 
التقنيه المتوفره فى السوق وللتوفيق بين احتياجات ومتطلبات النظام وبين التقنيه المتوفره فى السوق تم تحديد الاحتياجات 
الماديه التاليه٠-‏ 
-جهاز حاسب مواصفات فنیه معقوله. 


« الجانب البرمجى:- S0) W2‏ 
وايضا من خلال دراستنا للجانب البرمجى اللازم للنظام والتكنولوجية البرمجية المتوفررة فى السوق تم تحديد 
المتطلبات التالية 
1. ڊرliمج‏ 6.0 Microsoft Visual Studio‏ 
۲. برنامج مدير ادارة قواعد البيانات 2003 Microsoft Office Access‏ 


ومن خلال المعطيات المذكورة اعلی نجد ان النظام ذو جدوى تقنية. 


۱) من خلال دراستنا لتكاليف متطلبات ومستلزمات وتشغيل النظام وجدنا الاتى: 
تكالیف نظام الحاسب وملحقاتة ومكوناتة من الطابعة وغيرها 
تكاليف تحليل وتصميم وبرمجة النظام . 
تكالیف شراء النظام 
تكاليف تشغيل النظام. 


وبعد الانتهاء من دراسة تكاليف النظام تم دراسة العوائد التى سيحققها النظام الالى وهی كالتالى: 
يتضح من اسم النظام واهدافة انة ليس نظام تجارى او استثمارى وانما نظام خدمى بحت يهدف الى تقديم خدماتة بارقى 
مستوى وبشكل مرضى لجميع المستفيدين من النظام واستخدام الحاسب هو الاسلوب الامثل لتحقيق هذة الاهداف. 
تقليل التكاليف الاضافية التى تتحملها الموسسة والمتمثلة فى استخدام عدد كبير من الموظفين فى تنفيذ مهام ادارة شئون 
الطلاب . 
تقليل المبالغ التى تنفق فى اعداد النمازج والتقارير والكشوفات وذلك باعدادها باستخدام الحاسب بسهولة 


وبعد الانتهاء من دراسة العوائد والتكاليف ومع المرعاة الاهداف الخدمية التى سيقدمها النظام المقترح نجد ان 
العوائد التى سيحفقها النظام الالى اكبر بكثير من التكاليف وبذلك يكون النظام ذو جدوى اقتصادية. 


۳. دراسة الجدوى التشغيليه٠-‏ 
عند دراستنا عرفنا ان بعض الموظفين يعرفون بعض المعلومات عن نظام التشغيل ws‏ لہا۷ وبالتالى سنستخدم 


نظام التشغيل وندوز وذلك لسهولة هذا النظام وايضا لشهرة هذا الناظام وهو كذلك موجود فى السوق المحليه وهناك ايضا 


مجال واسع فى عقد دورات لمستخدمى النظام فى شئون الطلاب وسواء كان ذلك داخل المؤسسه او فى مراكز خارجه وبذلك 


نجد ان النظام زو جدوى تشغيليه . 


تتكون نظام قاعدة البيانات من الجداول الاتيه :- 


Dna )'‏ :- جدول المعیدین ویشمل الاتی:۔ 
(رقم المعيد/اسم المعيد) 
-:Presen٤ )‏ جدول الحضور ویشمل الاتی :- 
(رقم المعيد/رقم القاعة/رقم_الطالب/رقم_المادة/تاريخ _السكشن/الميعاد/الفرقه/الترم) 
-:Rname (r‏ جدول القاعات ويشمل الاتى:- 
( رقم القاعه / اسم اقاعه / المكان ) 
)٤‏ Sbn2m۳۴:-۔‏ جدول المواد ویشمل الاتی :۔ 
( الكود / اسم الماده / الفرقه ) 
Stn )°‏ :- جدول الطلاب ویشمل الاتی:۔ 
(رقم الطالب/الاسم/تاريخ الميلاد/العنوان/الحاله/الفرقه/البريد الالكترونى) 
J SERMAST (ًّ‏ :-۔ جدول المستخدمین ویشمل الاتی :۔ 
(PASSWORD / NAME)‏ 
نظام الحضور"- 
ه تسجيل حضور الطلاب. 
ه بحث عن عدد مرات حضور الطالب لتقييم اعمال السنه. 


فى مرحلة التصميم يتم تحديد عناصر النظام وهى كافة البيانات التى سيتم استخدامها داخل النظام وهى تتضمن 
مجموعه من الجداول سوف نستعرض خصائصها فى الاجزاء التاليه ومجموعه الجداول هذه تمثل فى الحياه 
الواقعيه مايسمى بالسجل العام للطلاب وهو عباره عن سجل يحتوى على جميع البيانات الخاصه بالطلاب للتسجيل 
وحضور وتقييم درجات الطلاب الخاصه بكل طالب ويسجل الطالب فيه بعد حضوره للسكشن واستكمال جميع 
البيانات الناقصه حيث يعتبر هذا السجل هو الوثيقه الرئيسيه والمرجع الرئيسى لبيانات الطلاب فى النظام الحالى 
هذا السجل سوف يتم محاكاته عن طريق مجموعه من الجداول والتى كل منها يخزن مجموعه من 


الفصل الأول 


برهجة قواعد البيانات 


عند الحديث عن قواعد البيانات» يتعالى صدى الحروف N٤1‏ .۸50 بين أحاديث المبرمجين» فهي الوسيلة المثلى 
لربط شيفراتهم البرمجية بملفات قواعد البيانات سواء كانت محلية أو على بعد آلاف الكيلومترات. هذا الفصل هو 
مدخلك المبدئي إلى ADO. NET‏ واستخدام فئاتهاء ودعني انوه هنا بان هذا الجزء مختص ببرمجة قواعد 
البيانات وليس التعامل مع قواعد البيانات بشكل عام» فلن اتحدث عن طريقة بناء الجداول أو ادارة نظم قواعد البيانات» 
بل سيكون حديثي محصور حول طرق الوصول إلى قواعد البيانات من شيفراتك المصدرية والمكتوبة ب إهuوئز۷‏ 
.Basic .NET‏ 


مدخلك إِJ ADO. NET‏ 
N۴1‏ .۸0 هي مجموعة من الفئات مشمولة في مجال الاسماءهاة .۳٠ءءر؟‏ غرضها الوصول إلى مصادر 
Glilyllٽ Data Sources‏ « والتي تمثل بيانات محفوظة تحت أنظمة قواعد بيانات متعددة الانو اع الاجناس» 

والأغراق ا يعني فقرتك على الوصول إلى أي قاع يانات مهما كانت الشركة المتتجة ليا 
مهما كان نوع مصدر البيائات الذي تتحامل معه عند استخدام N67‏ .۸50 عليك اختيار وضع من وضعين 
هما: الوضع المتصJ Disconnected Mode Jصفنnll عضولlو « Connected Mode‏ . 


في الوضع المتصل يتم الاتصال مع مصدر البيانات وتجري كافة العمليات - افضل ما أوصفها- على الهواء 
المباشرة أو كما انك تجري محادثة هاتفية مع احد الاشخاص» فالاتصال مستمر وحي يرزق بين برنامجك وبين 
مصدر البيانات الأساسي» وأي خلل في مصدر البيانات أو ايقاف مؤقت» سيؤدي إلى خلل برنامجك. 


اما في الوضع المنفصل فهو قريب من فكرة صندوق الوارد ×مطم] › حيث تاتيك البيانات وتعدل فيها كما تشاء ومن 
ثم ترسل كافة التعديلات . وھذا ما يحدٿث مع NET‏ .0 بالضبط فبعد قيامك بإجراء اتصال مع مصدر بيانات» 
ستحصل على البيانات المطلوبة وتنتهي علاقتك بمصدر البيانات الاساسي» وتتعامل مع البيانات - التي عندك - کما 
تتعامل معه الوضع المتصل. ليس هذا فقط. بل يمكنك تعديلها وتحريرها واجراء كافة جمل الاستعلام 8Q1‏ عليها. 


ميزه ة عظيمة في الوضع المنفصل يظهر من خلال استقلالية البيانات عن هيئة مصدر البيانات» ماذا يعني هذا؟ یعنی 

انك تستطيع الحصول على بيانات من مصدر بيانات من llنgعg Microsoft SQL Server®‏ « و کا مع 
البيانات وتحريرهاء ومن تم ارسال البيانات إلى مصدر بيانات من النوع ®ءءءءء۸ ا0fومإءMi.‏ كان الغرض 
الاساسي من تطوير فكرة الوضع المنفصل هو تخفيف الضغط على مصادر البيانات في اجهزة الخادم Servers‏ 
والتي تستخدم من قبل عدد کبیر من llعnں«ء Clients‏ › 


هذا ا شمر حديثي عن الوضع المتصل» حيث يعتبر مفتاحك لاستخدام والتعامل مع مصادر البيانات 


.NET Data Providers تlilيبll مزودات‎ 

الميزة العظيمة التي تجنيها من استخدام N٤1‏ .۸50 هو استقلالية برنامجك عن الهيئات المختلفة لمصادر البيانات» 

آي ان نفس البرامج التي استخدمتها لتطوير تطبيقات معتمدة على مصادر بيانات من نوع Microsoft Access®‏ « 
ستستخدمها ايضا مع انواع مصادر بيانات ا|خڙJ‏ ک— ®0ںFoxP Microsoft‏ ڪ Microsoft SQL Server®‏ 

و ®ء1ءهإ0 ...الخء دون الحاجة لتغيير شيفراتك المصدرية. 


السؤال الذي يطرح نفسه»ء كيف يمكن لد N81‏ .۸50 من فعل ذلك رغم انها كتبت مرة واحدة فقط وبالتالي ستكون 
موجه إلى نوع معين من مصادر البيانات؟ والجواب هو ان N.81‏ .۸50 في الحقيقة لا تصل مباشرة إلى مصادر 
البيانات وانما تعتبر واجهة للمبرمج فقط »> حیث انها تستخدم مزودات البیانات NET Data P0 v1‏ . كما يوضحە 
الشكل التالى: 


.NET Provider « ADO.NET 


مزودات البیانات .NE1T Data Provider‏ ما هي الا حلقة وصل بین N۴1‏ .۸50 ومصادر البیاناتء فعندما 
ترید من N٤1‏ .۸50 استخدام مصدر بیانات من النوع البیانات ®4ءء۸cc‏ اofومMic‏ عليك توفیر مزود 
.N E۲ Data Provider‏ والخاص ب ۸٥٥٥©‏ اما ان کبر حجم قاعدۃ البیانات واردت الاعتماد على خادم ک 
»Microsoft SQ Server®‏ فكل ما هو مطلوب منك استخدام المزود الخاص ب .Microsoft SQL Server®‏ 


من منظورك کمبرمج» ستستخدم N٤1‏ .۸50 بغض النظر عن نوع مصدر البيانات» ومن منظورك كمصمم 
للتطبيق» عليك تحديد مزود sإعل1رهإ۴‏ هة .N.81‏ والذي يلائم نوع مصدر البيانات الذي تستخدمه»ء كما عليك 
إرفاق كافة ملفات هذا المزود عند توزيع برنامجك. توجد العشرات من مزودات ءer‌P0v¡d‏ ۾)۾D .NNE€1‏ تمثل 
انواع مخئلفة من مصادر البيانات» ويتم تحديث اصدارات كل فترات متعددة عليك البحث دائما عن اخر اخبار 
المز رد الال تة فى عرق الفركة اة ر 


تو جد ثلاثة انواع من مزودات البيانات مدعومة في اطار .NET Framework Jaze‏ هي 


: OLE DB.NET Data Provider 


هذا النوع من المزودات يمكنك من استخدام مزودات 58 018 قديمة مبنية على تقنية C0M×N‏ و يفيدك كثيرا ان 
اردت استخدام نفس مصادر البيانات والمنجزة ãبJ‏ تaنıة Microsoft .NET‏ . 


: SQL Server .NET Data Provider 

هذا المزود موجه - بشكل خاص- إلى مصادر البيانات المنجزة بالاصدار السlبعg Microsoft SQL Serve[® ja‏ 
وما بعده» وان اردت التعامل مع اصدارات اقدم» فعليك استخدام المزودات من نوع OLE DB .NET Data‏ 
Provider‏ السابقة. 


: ODBC .NET Data Provider 
اول تقنية تمكن المبرمجين من الوصول‎ 058٣ وقبل تقنيات الوصول إلى البيانات» كانت تقنية‎ .N8١ قبل تقنية‎ 
المختلفة ) الفكرة من المشغلات والمزودات‎ 0ODB8€C 9 إلى مصادر البيانات المختلفة عن طریق مشغلات وإع1۷‎ 
ھو استخدام‎ ODBC .NE1T Data P0v¡dعs شبيهه إلى حد كبير من ناحية نظرية ). الغرض من المزود‎ 

مشغلات وإiveاD DBC‏ 0 للوصول إلی 
مصادر البيانات ( وهي اقل كفاءة حتى من مزودات OLE DB .NET Data Providers‏ ولا انصحك بالاعتماد 
عليها ). 


زت ADO. NET‏ 
تحتوي N٤1‏ .۸50 على مجموعة كبيرة من الفئات» ولكن اغلبها مشتقة من خمس فئات رئيسية هي انظر 
شكJ‏ )؟(: DataSet‏ و DataReader sı Data Adapter‏ و Command‏ و Connection‏ وعملية استیعاب هذه 
الفقات القاعحية سيسهل عليك الامر كثيرا للتزول إلى الفقات المشتقة وفهم طرق استخدامها والربط بين الكائنات 

a es 1‏ منها. 


.AD0. NET J! شکل (۲) : ابرز فئات‎ 


سافل قن جم اققات اشاق تكر ١‏ فى هذا اقل و الفعل الام بمشة آل ركن فغ الان ذلك جرلة سر 
حولها . حيث تكون البداية دائما وأبدا مع «0ذاءعصصه) » اذ يترتب عليك انشاء كائن من هذه الفئة عن طريقه تتصل 
بمصدر البيانات» كما ستلحق كل خصائص ومواصفات الاتصال ( كاسم المستخدم» كلمة المرور» مزود .×٤1‏ 
Provider‏ ata(المستخدم‏ ...الخ) مع هذا الكائن. 


بعد انشائك لكائن اتصال» سترسل مرجع لهذا الكائن إلى طرق وخصائص كائن اخر من النوع لمaدصصهC‏ » يمكنك 
من تنفيذ جمل الاستعلام المختلفة ) — SERT «DELETE « SELECT‏ وغیرھا) علی مصدر البیانات 
والمحدد في الكائن,م!اءعممصه٣‏ السابق. 

بعد تنفيذ جمل الاستعلام في الكائن لمره_صه) ٠»‏ ستكون النتائج متمثلة في سجلات ولإهءه۸ تصل اليها بين تنايا 
الكائن من النوع إمله٥‏ 8۸اه لتتمكن من قراءة كل سجل أو كل حقل على حدة» مع العلم انك لن تستطيع تحديث 
مصذر البيافات من خلال هذا الكائن. 


الفئات الثلاث السابق ذكرها تستخدم في حالة الوضع المتصل Connecte4 Mode‏ › اما الکائنات من النوع 
t€‏ فيوجد الكثير لأخبرك به حولها في الفصل القادم . وحتی ان نلتقي هناك»› اعلم انها تمتل البيانات المأخوذة 


أخيراء» يمكنك الحصول على البيان ات من مصدر البيانات أو ارسالها اليهء وإلحاقها إلى الكائنات من النوع 
taeعن‏ طريق كائن من النوع إمامه ل ۸A‏ هه( » يمكنك اعتباره كهمزة الوصل التي تمكنك من ارسال/ استقبال 
البیانات من والى کlئنlٽ .Connection‏ 


کائن الlتصJi Connection‏ 
في عالم ٠ ۸50. N٤1‏ الاتصال الذي تجريه مع مصدر بيانات هو كائن من النرع «0ناءمصمصره٤‏ . وقبل 
التعامل مع مصدر بيانات» عليك فتح اتصال معها ( حتى ولو كنت في الوضع nllنفغفصJ (Disconnected Mode‏ 

في هذا القت من الفصل ستو رضن سايب المتهدة الاتسال تانر اليانات. 


إنشاء کائن اتفصJi Connection‏ 
عندما تنوي انشاء كائن اتصال فانك لن تقوم بتعريفه من الفنثة م10اءعصرصه السابقة وانما ستستخدم نوعین من 
الاتصال » النوع الاول للمزودات من النوع OLE DB .NE1 Data Provider‏ حیث ستعرف کائن اتصال من 
:OleDbConnection ill‏ 

Dim msAccessCn As New OleDbConnection() 


اما ان كان مصدر البيانات الذي تنوي الاتصال به يتبع للgjnد SQ1 Server . NET Data Provider‏ › فالفئة 
SQL nnection‏ هي المسئولة عن انشاء كائنات من هذا النوع: 

Dim msSQLCn As New SqlConnection() 

كلا الفئتين تحتويان على الواجهة «0ناءعصصه٣ط5]‏ مما يمكنك من الاستفادة من مبدأً تعدد الواجهات 
Polymorphism‏ وتتمكن مثلا- من كتابة اجراء واحد يستقبل كلا النو عين لاختصار كتابة الشيفرات المكررة: 


Sub ConnectionDB( ByVal dbCon As IDbConnection) 
Ne 


End Sub 


نص الاتصال 
بعد انشاء كائن الاتصال» عليك ارفاق نص الاتصال ع٣ذS†r‏ 101صص اليه» ونص الاتصال ما هو إلى قيمة 
حرفية ( من النوع ع)8) تحتوي على كل شيء تتعلق بعملية الاتصال بمصدر البيانات» كاسم مصدر البيانات» 
مسار قاعدة ملف قاعدة البيانات ( أو قد تكون اسم الجهاز في الشبكة ان كنت معتمد على خادم قواعد بيانات ك 
pl «(Microsoft SQL Server®‏ 

المستخدم»› كلمة المرور ... الخ» نص الاتصال التالي مناسب جدا لمصادر بيانات من النوع Microsoft‏ ° 
Access®‏ 


Dim connString As String = "Provider= Microsoft. Jet. OLEDB. 4.0;" _ 
& "Data Source= C:\ Folder\ Data. MDB;" 


حيث عل ¡ره۴ هو الاسم الكامل للمزودء و عcإuاه؟‏ وه( اسم ملف قاعدة البيانات . المزيد ايضاء يمكنك اسناد 
وقت الانتظار Connection Timeout‏ بین ثنايا نص الاتصال» ووقت الانتظار هي اطول فترة التي سیضل 
الكائن منتظرا ردة الفعل من مصدر البيانات عند الاتصال» فنص الاتصال التالي سينتظر 1۰ ثواني لفتح الاتصال مع 
مصدر البيانات»› وان انتهت الفترة ولم تحدث أي ردة فعل من مصدر البيانات نفسهء سيظهر خطأ ( القيمة الافتراضية 
هي ٠١‏ ثانية ): 


Dim connString As String = "Provider= Microsoft. Jet. OLEDB. 4.0;" _ 
& "Data Source= C:\ Folder\ Data. MDB; Connection Timeout= 10" 


بعد كتابتك لنص اتصال» أسنده فورا إلى الخاصية ConnectionString‏ والتابعة لکائن الاتصال» كما يمكنك ارسال 
نص الاتصال مباشرة الى مشيد الفئة لحظة انشاء الكائن: 


Dim msAccessCn As New OleDbConnection() 
msAccessCn. ConnectionString = connString 


Dim msAccessCn As New OleDbConnection( connString) 


عندما تتعامل مع الكائنات من النوع Sq1IConnection‏ » فعليك تجاهل اسم المزود عند كتابتك لنص الاتصال»› 
والسبب قد يبدوا بديهيا ان علمت ان الكائنات من النوع «٥إاءممصصه٣ S41‏ لا تقبل الا المزودات من النوع 
SQL Server Data Provider‏ : 


Dim msSQLCn As New SqlConnection() 

msSQLCn. ConnectionString = "Data Source= Asd SERVER;" _ 
“ &اسد =swor۲۵یھP ولا حتی تحلم فیھا‎ "ser 1D= ; 
&قاعدة بيانات المقالات“‎ "nitia1 Cataا0g=‎ 


فتح وإغلاق الاتصالات 
بعد اسنادك لنص الاتصال المناسب للخاصية ConnectionString‏ > يمكنك البدء بفتح الاتصال مع مصدر البيانات 
باستدعاء الطريقة ()1عم0: 


Dim msAccessCn As New OleDbConnection( connString) 
Dim msSQLCn As New SqlIConnection( connString2) 
msAccessCn. Open (0) 

msSQLCn. Open 0) 


ومن الضروري جدا اغلاق الاتصال عند عدم الحاجة اليه باستدعاء الطريقة :Close)‏ 


msAccessCn. Close (0) 
msSQLCn. Close () 


تستطیع معرفة حالة الاتصال عن طریق الخاصية State‏ التابعة لکائن الاتصال «Connecting‏ والتي قد تکون قيمة 
أو اكثر من القيم : الاتصال مفتوح ١۸ءم0‏ الاتصال مغلق» 4عءه1٥‏ جاري فتح الاتصال»› عہااuءم×8‏ يتم 
تنفيذ امر استعلام علی الاتصال» و Fetching‏ جاري الحصول علی بيانات من سجلات مصدر البيانات: 


Dim cn As New OleDbConnection() 


If (cn.State And ConnectionState.Open) <> 0 Then 
cn. Close) 
End If 


المزيد ايضاء عند تغيير حالة الاتصال من مءم0 إلى 4ءءهC1‏ ( أو العكس ) سيتم تفجير الحدث StateChange‏ 
و الخاس يكاتن الاتصال : 


Dim WithEvents cn As New OleDbConnection() 
Sub cn_ StateChange( ByVal sender As Object, _ 
ByVal e As System. Data. StateChangeEventArgs) 
Handles cn. StateChange 
If (e. CurrentState And ConnectionState. Open) <> 0 Then 
تم فتح الاتصال"‎ ab e11. ex = " 
Elseif e.CurrentState = ConnectionState.Closed Then 
اتم اغلاق الاتصال"‎ abe11.آ‎ ex) = " 
End If 
End Sub 
تفادي الاستثناءات.‎ 
عند التعامل مع مصادر البيانات» فان نسبة وقوع الاستثناءات كبيرة جدا لأي سبب أو خلل فنيء» لذلك ينصح بشدة من‎ 
: Try ... End Try تفادي الاستثناءات ووضع الشيفرات الخاصة بمصادر البيانات داخل التركيب‎ 


Dim cn As New OleDbConnection() 
Try 
cn. Open( 


Catch ex As Exception 
MsgBox( ex. Message) 
End Try 


بالنسبة للطريقة Close)‏ السابقة» عليك اس تدعائها دائما لتغلق الاتصال» حيث ان Garbage‏ الاتصالات لا يتم 
اغلاقها الا لحظة الموت الحقيقي للكائنات ( عندما تبداً المجموعة عملها ) > وبما اننا لا نعلم متى سيحدث هذا فعلينا 
استدعائها دائما» سواء وقع استثناء و c†10مCo11‏ أو لم يقع: 


Dim cn As New OleDbConnection() 


Try 
cn. Open( 


Catch ex As Exception 
MsgBox( ex. Message) 
Finally 

cn. Close) 

End Try 


کما يفضل الاعتماد على كائنات الاستثناء ات OleDbException‏ أو SqlException‏ للتفريق بین الاستثناءات 
الخاصة بكائنات الاتصالات والاستثناءات الاخرى: 


Try 


Catch ex As OleDbException 


Catch ex As Exception 


End Try 

كائن الأوامر Command‏ 

بعد تكوين الاتصال مع قاعد ة البيانات» تأتي الخطوة التالية وهي ارسال جمل الاستعلام 9Q1‏ إلى قاعدة البيانات 
لتعديل محتوياتهاء في هذا القسم سنرى كيف يمكنك الاستفادة من كائن الاتصال ل٣۳4‏ ه00.وتعديل بيانات قاعدة 
البيانات عن طریق کائن الاوامر م 10اConnec‏ . 


إنشاء كائن أوامر 

عندما تنوي انشاء كائن اوامر لمجص K0‏ فانك لن تقوم بتعريفه من الفنة 2ه » وانما ستستخدم نوع يماتل 
مزود كائن الاتصال 101†ءعم مه٥‏ » فان كان مزود كائن الاتصاJ ja‏ illو‏ ع OLE DB .NET Data Provider‏ 
> ستعرف کائن اوامر من :OleDbCommand ill‏ 

Dim msAccessCmd As New OleDbCommand () 


اما ان كان مزود كائن الاتصال الذي تنوي استخدامه يتبع للمزود SQL Server .NET Data‏ > فالفئة 
SqlCommand‏ هي المسئولة عن انشاء كائنات اوامر خاصة لها : 


Dim msSQLCmb As New SqlCommand(0 


كلا الفئتين تحتويان على الواجهة dمحصصه٣ط5]‏ مما يمكنك من الاستفادة من مبدأً تعدد الواجهات 
Polymorphism‏ وتتمكن - متلا من كتابة إجراء واحد يستقبل كلا النو عين للتقليص من عدد الشيفرات المكررة: 


Sub CommandDB( ByVal dbCmd As IDbCommand) 


End Sub 


الربط مع اتصال 
بعد إنشائك لكائن اوامر dمرحوص_صه) ٠‏ اول خطوة عليك إنجازها هي ربطه مع كائن اتصJi «Connection‏ 
يمكنك اسناد مرجع إلى كائن اتصال عن طريق الخاصيةConnecti01‏ 


(connString) Dim cn As New OleDbConnection 
Dim cmd As New OleDbCommand(0 

cn.Open(O 

cmd.Connection = cn 


ولا تنسى ضرورة توافق نوع کائن الاوامر مع نوع كائن الاتصال» فلو كان کائن الاتصال يتبع مزود من النوع 
8Q1 .NE1 Data Provider‏ فقد تم إنشائه من الفئة «0ن)ءعمصه٣ ٠ S۹1‏ لذلك عليك الاعتماد على الفئة 
c0mmand€]Sg1عوضا‏ عن LEDbCommand‏ 0 للربط الصحیيح مع الاتصال: 


Dim cn As New SqlConnection( connString) 
Dim cmd As New SqlCommand(0 

cn.Open(O 

cmd.Connection = cen 


ضع في عين الاعتبار» ان کائن الاوامر dمھصصه)‏ مرتبط ارتباطا وثیقا بکائن الاتصال o٥۸‏ 1اcع‏ ص٥٤۰‏ فلو تم - 
متلا اغلاق كائن الاتصال بالطريقة 0ء٥1٥‏ فلن تتمكن من تنفيذ جمل الاستعلام 8Q1‏ مع كائن الاوامر: 


Dim cn As New OleDbConnection( connString) 
Dim cmd As New OleDbCommand(0 

cn.Open(O 

cmd.Connection = cen 

cn. Close) 

cmd.ExecuteNonQueryÛO 


فیط ل او شا ام ت ان كان او ار ۷ بع إلى مدر انات كل رة وافها بد على كان 
اتصال والذي بدوره يصل إلى مصدر بيانات . 


Connection Command 


تنفيذ جمل الاستعلام اSQ؟‏ 
ان اردت تنفيذ جمل استعلام علی الكائن Command‏ « فعليك تحدبد نوع جملة الاستعلام 1 SQ‏ التي تود تنفیذه» هل 
هي جملة استعلامية تقليدية أو جملة تنفيذية؟ 


الجمل الاستعلامية هي تلك الجمل التي لا تؤثر على سجلات قاعدة البيانات وانما تقوم بقراءة محتوياتهاء في لغة 
الاستعلام 8Q1‏ نستخدم الاأمر 9E].8٣١‏ لهذا النوع من الجمل»ء وسترى في الفقرة التالية قراءة السجلات كيف 
يمكنك تنفيذها على كائن 4٬2ص‏ صمح باستدعlاء‏ اÛJطرJق .8ExecuteXXX(Û‏ 


اما ان كانت جمل الاستعلام SQ]‏ هي جمل تنفيذية» عليك استخدام الطريقة N0 ۸Q ue1y)0(‏ ء†uءم×8‏ والتي 
تعود بقيمة عددية تمثل عدد السجلات التي تأثرت. الجمل التنفيذية التي اقصدها في هذا السياق - هي تلك الجمل التي 
تحدٿ تغييرا في سجلات جداول قاعدة اlبيlناٽت‏ مڌJ UPDATE «INSERT INTO yi DELETE‏ 


2 


حتی تتمکن من استدعاءِ lلÜطريقi( ExecuteNo1 Query‏ عليك او لا كتابة جملة الاستعلام SQL‏ فی الخاصية 
Command Text‏ والتابعة للکائن ¡إ 0021 :€C‏ 


Dim cn As New OleDbConnection( connString) 

cn. Open( 

Dim sqlIStatement As String = "UPDATE asd set name=’asd’ where ID=2000” 
Dim cmd As New OleDbCommandO0 

cmd.Connection = cn 

cmd.CommandText = sqIStatement 

cmd.ExecuteNonQueryO 


يمكنك دمج السطرين والمتعلقين بتعديل قيم ائفخاصيتيj :Command gê CommandText sı Connection‏ 


Dim cmd As New OleDbCommand ( sqIStatement, cn) 


اخيراء د اعيد تذكيرك ة تفادي الاستثناءات لحظة تنفيذ جمل الاستعلام - ففد صلا حياتك 
خيراء دعني بضرور م تتغير 
مصدر البيانات او خت أي خلل فني في عملية التحديث : 


Try 
cmd. ExecuteNonQuery () 


Catch ex As Exception 


End Try 
قراءة السجلات‎ 
في جمل الاستعلام لقراءة السجلات» فيمكن اختيار طريقة من ثلاث طرق‎ SE1٤٣1 عندما تنوي استخدام الامر‎ 
. ExecuteXMLReader gy ExecuteScalar) gy ExecuteReader) :aa Command jûilكd‎ ةعبlت‎ 


:ExecuteReader() ةقيرطÜلا‎ 

الطريقة 0ء ل4 ۸ءاuعمE×x‏ تعود بكائن من النوع مله ۸هه0 تمثل نتيجة جملة الاستعلام في الكائن ( 

0mmandسأتحدتث‏ عن الكائن إعل هع 4)۸( لاحقا في القسم كائن البيانات عله ۸Rه)a(من‏ هذا الفصل (: 
Dim cmd As New OleDbCommand('' SELECT * FROM asd, cn")‏ 


Dim dr As OleDbDataReader = cmd.ExecuteReader() 
Do While dr.Read(0 


dr.Close(0 
:ExecuteScalar) ةقيرطÛJا‎ 
تستخدم الطريقة ()١4اهء؟ع†ںءع×ع لقراءة حقل 14ء۴ واحد فقط من حقول السجل» وتعود بقيمة تمثل ذلك الحقل:‎ 


Dim cmd As New OleDbCommand(" SELECT name from asd where id=10”, en) 
Dim Name As String = cmd.ExecuteScalarO 


hE 


تفديك الطريقة ExecuteScalar)‏ كثيرا ان اردت قراءة قيمة واحدة من من السجل وذلك لزيادة سرعة التنفيذ» ان 
كانت جملة الاستعلام تعود باكثر من حقل» فالحقل الاول هو الذي سيتم قراءته» وان كانت جملة الاستعلام تعود بأکثر 
من سجل» فسیتم قراءة الحقل التابع للسجل الاول. 

يمكنك الاستفادة من الطريقة 0)١1ادء؟ء)ںءم×Eع‏ في معرفة عدد السجلات بشكل سريع- على سبيل المثال لا 
الحصر ٠‏ 


Dim cmd As New OleDbCommand(' SELECT COUNT() FROM asd “, cn) 
Dim countOfFrogs As Integer = CInt( cmd. ExecuteScalar(0) 


lلÙطرãıقة :ExecuteXMLReader(Û‏ 
ان استخدم المزود Server .NET Data Provider‏ اSQ‏ » فستتمكن من استدعاء الطريقة 
»Ex>ecuteXMLReader0)‏ حيث ان قواعد البيانات المعتمدة على انظمة5SQ1‏ 0۴یهإ Mi‏ یمکن استخدام یمکن 

شتام الامر < 10۸ من أوامر نة الاستعام ان معهاء رالتى تعرد بالسحلات دة 11 5, 

اذا كانت الطريقة ea er0)‏ Rء†uءمx×٤‏ تعود بكائن من النوع ١ء‏ له Rه)ه ٠‏ فان الطريقة 
ExecuteXMLReader)‏ تعود بکائن من النوع System .XM[.)n]R e2 e۲‏ واستخدامها شبیه - إلى حد 
کڊبıر- .DataReader ga‏ 


Dim cmd As New SqlCommand("' SELECT * FROM asd “,cn) 
Dim xmlr As System. Xml.XmlIReader = cmd. ExecuteXmlReader() 
Do While xmlr.Read(0 

MsgBox( xmlr.Value) 

Loop 

xmilr.Close() 

کlئj‏ llبlنlٽت DataReader‏ 
بعد تنفيذ جملة الاستعلام في الكائن dمحمصصهC‏ باستدعاء الطريقة السابقة ()6۲لe2‏ ۸ع )uءع×۴‏ » ستعود هذه 
الطريقة بكائن بيانات من النوع مله ۸ه( يمثل جميع السجلات الناتجة من جملة الاستعلام» وقبل ان نرى كيف 

يمكنك الاستفادة من هذا الكائن» من الجيد معرفة كيف يمكنك الحصول عليه - أي إنشائه. 


إنشاء كائن بيانات 
عندما تنوي إنشاء كائن بيانات ع (a†2R ea‏ فانك لن تستطيع اس تخدام الامر New‏ › وانما ستضطر إلى استخدام 
الطريقة Exec» ءR e2 er)‏ والتابعة للكائن dممصصە€‏ » فان کان مزود الکائن إرےصصهC‏ من النرع ظOL‏ 
» فانك ستعرف کائن بیانات من الفiة :OleDbDataReader‏ 

Dim cmd As New OleDbCommand(' SELECT * FROM asd", cn) 

Dim dr As OleDbDataReader = cmd. ExecuteReader(O 

اما ان كان مزود كائن الاوامر الذي تنوي استخدامه يتبع للمزود 9Q1 Se‏ فالفئة S1 ataR ead‏ هي 
المسئولة عن إنشاء كائنات بيانات خاصة . 


Dim cmd As New SqlCommand (" SELECT * FROM asd", cn) 

Dim dr As SqlDataReader = cmd.ExecuteReader 

مرة اخرى» الواجهة ل2 Rه{a‏ 10[ مشمولة في کIl‏ illتjı OleDbDataReader‏ ڪ SqlDataReader‏ « 
فيمكنك تعريف اجراء يستقبل في وسيطته كائن من كلا النوعين : 


Sub ReaderDB( ByVal dr As IDataReader) 


End Sub 


قراءة السجلات 

بعد إنشائك لكائن بيانات إعإDaaRca‏ › تستطيع البدء في قراءة سجلاته في خطوتين» الاولى باستدعاء الطريقة 
Read0‏ لتحميل حقول السجل» والثانية تتم فيها قراءة قيمة الخاصية صع)] والتي ترسل معها اسم الحقل المراد 
قراءته: 


Dim dr As OleDbDataReader = cmd. ExecuteReaderO 
dr. Read(0 

MsgBox ( dr. Item(" 

dr. Read(0 

MsgBox dr. Item("" 

dr. Close0 


في كل مرة تستدعي فيها الطريقة ()ل4٥۸‏ سيتم نقل المؤشر إلى السجل التالي» وستعود الطريقة بالقيمة اه۴ ان 
وصلت إلى نهاية السجلات» لذلك الاستخدام الامثل لها يكون في حلقة بهذا الشكلممم] ... 00 : 


Dim dr As OleDbDataReader = cmd. ExecuteReader( 


Do While dr. Read(0 
Msgbox (dr. Item(" "( 
Loop 

dr.Close(0 


الخاصية ٠‏ ع)] تعود دائما بقيمة من النوع Object‏ »> مما يضطر ك إلى الاعتماد علئ دوال التحويل CInt)0‏ ) ¢ 
CSngO0 «CLngO‏ الخ) لقرائة القيمة مع ذلك يمكنك الاعتماد على الطرق Getxxx(Û‏ التي تعود بالنوع 


Dim age As Integer 
age = CInt( dr. Item("---") 
age = dr.GetInt32( 1) 


من المهم التنبيه هنا بضرورة اغلاق كائن إعل 4ء ۸ه)ه5 باستدعاء طريقته ()ع10٥‏ » السبب في ذلك ليس فقط من 
اجل تحریر مصادر النظام» وانما يتعدى ذلك بكثير» اذ بمجرد «Connection dnl‏ سیتم شلل كافة العمليات 
الاخرى على كائن الاتصالإء لهه ۸ه( بإنشاء كائن والاوامر ل«دصصه٤»‏ ولن تتمكن من عمل أي شيء الا 
استدعاء الطريقة Close()‏ لكائن الاتصال في هذه الحالة. 


اخیراء تحتوي الكائنات من النوع DataReader‏ على مجمو عة اضافية من الطرق والخصائص المفيدة كالخاصية 


مصهN‏ 1ء6 التي تعود باسم الحقل ( وليس قيمته ) › الخاصية إعارuه‏ ٣11ء۴‏ التي تعود بعدد الحقول التي تعود 
بالقيمة والاهم من ذلك الطريقة 1]ں×958] والتى تعود بالقيمة مں إ۲ ان كان الحقل فارغ إاNu‏ . 


Registration, Contacts l4 lil jيټږغا وھنا يقم |نشاء‎ 
Registrati0n ۓılilږll‎ ةmkl‎ gl 
يتکون من جدولين‎ 


Last 
First 


MI 
Aires 
Bitte 


BirthPlace ا-جدول‎ 
Sex ١ student 
Course ۹ 
YrLevel 
Guardian 
TelNo 
StudClass 
Trimester 
Sy_ start 
Sy_end 


E-R diagram aةالعلاو مخطط الكينونه‎ 


Student 


Birthplace Ge) ove 


E Microsoft Access 
5 Filê Edt ew Inset Tools Window Help 


TOT NEE ET IEEE 


Ë Student : Table 


Field Mame Data Type Description 
| TEX 
| Text 
| Text 

1 Text 
Address | TERE 
Birth Date | Text 
BirthPlace | Text 
SE | Tex 
LaUrsE | Text 
rLe¥el | TEx 
Guardian | Text 
Tella Text 


Field Properties 


س 
General | Lookup |‏ 


Field Size 
Format 
Input Mas! 
Laption 
Default Yalue 
validation Rule 
validation Text 3 
Required o 

Alli Zera Length es 

Indexed res (Mla Duplicates) 
Unicode Compression tes 

IME Mode No Control 

IME Sentence Mode None 

Smart Tags 


û field name can be up to 1ã characters long, including 
spaces, Press F1 for help on field hames, 


Design view, F6 = Switch panes, F1 = Help, 


Subjects Jsڏ+‎ -T 


اسم الحقل 
IdNo‏ 
Code‏ 
Description‏ 
Sec‏ 
Unit‏ 
Day‏ 
Time‏ 
Room‏ 


م 
۱ 
٢‏ 
۳ 
٤‏ 
° 
1 
۷ 
۸ 


Description 


rosoft Access 


i Fle Edt Wiew Insert Tools Window Help 2 
HE. RENEE ER EAR ENE 


Field Properties 


General Loskup | 


Field Size 
Format 

Input Mask 
Laption 
Default Yale 
validation Rule 
validation Text 
Required Mo 

Allow zero Length res 
Indexed No 
Unicode Compression res 

IME Mode No Control 
IME Sentence Mode Honê 
Smart Tags 


A field name can be up ta “E characters long, including 
spares, Press F for help on field names, 


ign view, Fé = Switch panes, F1 = Help, ا أ‎ 1 
س ي‎ 


Contacts ۓ#ıllyږl| ةة‎ lڄ‎ :lilê 


Users Jوطج‎ -1 
اسم الحقل‎ 
CONTACT ID 
NAME 
ADDRESS 
LOCATION 
COMMENTS 


مخطط الگینونة وllعغلlقة E-R-Diagram‏ 


E Microsoft Access 


T¥pS a questlori for help = 


Contacts : Database (Access 97 file format} 


WE Users : Table 
Description 


Field Properties 


General Loankup | 


Field Size Long Integer 
Nam Values Increment 

Format 
Laption 
Indexed es (No Duplicates) 
mart Tags 


A field rame zan be Up ta 1E characters lang, including 
Spates, Press F1 for help on field names. 
i ٤ 


Design view, Fê = Switch panes, F1 = Help. 7 ا 1 ا‎ 
a للل‎ 


قواعد البيانات لبرنامج متابعة حضور الطلاب السكاشن 


تتكون قاعدة البيانات لبرنامج متابعة حضور الطلاب السكاشن من عدد ٦‏ جدول كالاتى:(بيانات الطلاب - بيانات 
المعيدين -بيانات القاعات - بيانات المواد الدراسية - جدول الحضور - جدول المستخدمين ) 


تم استخدام برنامج اكسيس ۲٠٠٠‏ لعمل قاعدة بيانات وبها الجداول المستخدمة وهم : 


E] New Office Document soft Access 
| 3 Cpen office Document Exetel 
5 Restoration erosoft FrontPage 
f# set Program access and Defaults [E] Microsoft office PowerPoint Viewer 2003 


®. windows Catalog 
E 7-zp 


Internét 8 Accessories Microsoft Word‏ و 
Internet Explore‏ 
lë Femrools EM nrvaPlayner‏ 
e E Games & Outlook Express‏ 
rosoft Sukioat‏ 
arakBYTE „_ Remote Assistance‏ 3@ 
er) Meda Player Classic j & colorrolder @ RNG‏ 
E Intêrnet Dêwnioad Manager Bh Windows Menie Mal‏ 
î Kits coder Park A Aerobak.com‏ 
EE Adobe Resder a‏ = 


rogram ال‎ 
E Mycroft TimeCard 3 


Ele-Salaty 
E Proeet1 


۰ 
+ 
+ 
٠ 
٣ 


E Yahoal Messenger 
O Internet Explorer سا‎ 


1-start all programs Microsoft Access 
> تم انشاء قاعدة بيانات بإسم لني‎ 


€ © New File 


Open a file 
ahmed 
stud 
db1 
grub 4 
E More Flas... 


New 
file / New / blank database 0 
ملف إ/جديد/انشاء قاعده قارغة‎ e 

New from existing file 


i) Choose file.. 


New fram template 
lT] General Templates... 


&] Templates on Micrasoft.cûm 


Î Add Network Plate... 
[F] microsoft Access Help 
I1 Show at startup 


New Blank database 
چ‎ 


Edt YWiew Insert Tools Window Help 
€ ® New File 
Open a file 


E song: -&/ @ x* Fî E> Tous” 
۱ اغانی انجلیزی‎ 
8 [E More files... 


آغاني عربي 
New‏ القران الگريم ا 
k Database‏ 
blank database, /save, in, /file name, / create E‏ 
Project (Existing Data}‏ 3 قاعده فارغةامكان اأ 3# /k‏ اسم القاعدة/ انشاء 


8 lê] Project (Mew Data) 
New from existing file 
E choose file... 
New from template 
&] General Templates... 
@] Templates on Merasoft.cûm 


Favorites 


File name: 


Save as ype! microsoft Acc 


Îî Add Network Place... 
[FÎ Microsoft Access Help 
ll Show at startup 


_ Blank Save in ۴ل‎ name Creage 


اشتملت قاعدة البيانات على الجداول الإتية 
EJ Microsaft.iccess‏ 
Elê Edt Yew Inset Ins Window Hep‏ 


dE db: Datahase (Access 20010 file format) 


Rn 8 TT 
New Table 


8 Farms 2 [ 


E Repats Create a new table in Design 
EN, 

3 Pages 

Ê Matos 

Ê Modules 


GrOUps 


Tablel/ New, /ıdesign, view, 
جدول | جدبدا طريفة العرض‎ 


4-Table New | design view 
< 


` 


Microsoft Access 


Ele Ed Yew Inset Io Window Hep za quetion for hep 


{E stud + Database (Access 2000 file format), 


presen 


room 


Bl Fame 
Bl Repots 
E Pages 
Macs 
4 odes 


subjert 


BH Fovoies 


١‏ جدول بيانات الطالب (عصه,اء) 
ويشتمل على الحقول التالية (الرقم/الاسم/تاريخ الميلاد/العنوان/الحالة/الفرقة) 


Tools Window Help 


EH S| BE A= B . 


Data Type 7 : 
Text field size caption 


وقم الطاب 10 
Text‏ 
الاسم 50 ESE‏ 
DatejTi‏ | 
تاریح المیلاد [gire Time ` shori date‏ 
5 العنوان 0د 
الحائة/رمسنجد وياقي 50. 
الفرقة /الاولى انخانية التاقنه افر ابعه 10 


Field Properti 


General | Lookup | 

Field Size 

Format 

Input Mask 

Caption 

Default Yalue 

Validation Rule The data type determines the kind of values that users can 
Vali Gaien Tet stare in the field, Press F1 for help on data types, 
Required na 

Allow Zero Length Yes 

Indexed Yes (No Duplicates 

Unicode Compression Yes 

IME Mode Ma Control 

IME Sentence Mads None 


۲- جدول بيانات المعيدين(ع ط4 ہف) 
ويشتمل على (رقم المعيد/اسم المعيد) 


Todls window Help 


#3 ES BAR. 


Data Type. field size 
Text 5 
Text 50 


Field Properties. 


General | Leckun | 

Field Size 

Format 

Input Mask 

Caption 

Default Value 

Yaldatian Rule A field hame cani be up ta 64 characters lng, including 
validation Text spaces, Press F1 for help on field names. 
Required No 

Allow Zero Length es 

Indexed ‘es (No Duplicates) 

Unicode Compression Yes 

IME Mode No Control 

IME Sentence Mada None 


۳ جدول الغياب والحضور (٤1ع؟١ءإم)‏ 
ویشمل (رقم الطالب/رقم الماده/رقم المعيد/تاريخ السكشن/رقم القاعة/الوقت/الفرقة/الترم/ملاحظات) 


ت 


El Mirrnsnfûrreşs 
Insert Tools window Hep EE 
Li BE. 0T x3 ENE A IQ. 


Data Type 
Text 
Number 
Text 
Date/Time 


ت DateTime‏ 
الفرفة/الاولى.النانية الثالة الر ابعة ا Text‏ 


الترم/الاول الذادي Text‏ 
ملاحظات Memo‏ 


General | Lookup | 
Field Size 

Format 

Input Mask. 
Laption 

Default Value 
validation Rule û field namê cari be up tn ë4 chatacters long, including 
validation Text spaces, Press FL far help on field names. 
Required 

Allow Zero Length Yes 
Indexed es (Duplicates OE) 
Unicode Compression es 

IME Mode Na Control 

IME Sentence Mode None 


-٤‏ جدول القاعات:(ع۸21]) 


ویشمل(کود 


۱ 
ا 


لقاعة/اسم القاعة/المكان) 


Insert Tools Window Help a question for help 


RF EB. [Ee OES B40. 


Data Type 
Number 
Text 
Text 


Field Properties. 


General | Lookup | 

Field Size Lang Integer 
Format 

Decimal Places. Aun 

Input Mask 

Caption: شوذ_القاعة‎ 
Default Yale 0 û field name tarî be up ta 64 characters long, including 
validation Rul spaces, Press F1 for help on Feld names, 
Yalidation Text 

Required flo 

Indexed es (No Duplicates) 


-٥‏ جدول المواد (عہھ,طء) 
ويشمل(رقم الماده/اسم المادة/الفرقة) 


The field description is optional, It helps you desrihe the 
field and is also displayed in the status bar when you select 
this field on a form; Press F1 for help on descriptions. 


Data Type 
Humber 
et 


Field Properties 


General | Laokup | 
Field Size 

Format 

Decimal Places 
Input Mask 
Caption 

Default Yalue 
validation Rule 
validation Text 


Long Integer 


Required 


Indexed es (No Duplicates) 


(USER MAST) Jıجستll‎ Jودج‎ ٦ 
رقفل انت الس خم كلم الفرزن)‎ 


Microsoft ACCESS 
Insert Tools Window Hep 


T¥# Fa EN BA. Q. 


Data Typê 
Tet 
PASSWORD Text 


Field Properties 


General | Laakup: | 

ld Size 

Format 

Input Mask 

Caption 

aul alê 

alidation Rule 

alidation Text 

Required 

Allow Zero Length 

exed 

iade Compression 

E Mode No Contral 
IME Sentence Mode None 


A field namê tan be up ta 64 characters lang, including 
spaces, Press FL for help oni Field names, 


الاكواد 

Private Sub Command1 Click) 
Unload Me 

End Sub 


Private Sub login Click) 

If txtpassword. Text = IIf(IsSNull(Adodc1.Recordset.Fields("password")), "", Adodc1.Recordset.Fields("password")) And 
txtusername.Text = Adodc1.Recordset.Fields("name") Then 

MsgBox "Login succeded" 


Load MDIForm1 
Unload Me 
MDIForm1.Show 
Beep 

Beep 

Else 

MsgBox "wrong password Try again" 
txtpassword. Text = "" 
txtpassword.SetFocus 
End If 

End Sub 


مر زر الخروج & وأمر زر التحميل من القاعدة 


اک 


Potro 


م 


برنامج متابعة حضور السكاشن 


ررمهد العالس لوم الكمبونر 


وتكتولوجيا الادارة بسوهساج 


CC 


۲- النموذج الرئيسى (الشاشة الافتتاحية) 


Private Sub Form1 Click) 
End Sub 


Private Sub aaa _ Click) 
Form6.Show 
End Sub 


Private Sub md Click) 
Form1.Show 
End Sub 


Private Sub mstud ClickO 
Form3.Show 
End Sub 


Private Sub Picturel Click(Index As Integer) 
'frmIssue.Show 
End Sub 


Private Sub pp_ Click) 
Form5.Show 
End Sub 


Private Sub pres Click) 
frmIssue.Show 
End Sub 


Private Sub room ClickO 
Eorm2.Show 
End Sub 


Private Sub sub ClickO0 
Form4.Show 
End Sub 


Private Sub us Click) 
usermasterShow_ 
End Sub 


Private Sub zs ClickO) 


search.Show 


Hnf Sih 
۳ 


-هذا الكود خاص بالقوائم عند الضغط على الفورم او النموذج يعمل اظهار س0طء 


عند الضغط على اسم النموذج متلا القاعات الامر يعمل س0طء اظهار الفورم 


٤ ecord 1 of 3 
Delete | umda 


٤-نموذج‏ بيانات المعيدين 


اموت عل محمود 
ارباب خسن مصطغى ‏ 42/139546 
عبد الله محمد احمد 


ونار غالى المصري 


E7 1of4 


Delete | urdo | 


Record 1 of 4 
Delete | undo 


٦‏ _ نموذج بيانات القاعات 


الحو اد الكرائنسة < 


۸- نموذج بيانات تسجيل الحضور 


Please select a FETA Fro the table 


۹- نموذج الدخول على بيانات الطلاب لاختيار الاسم او الرقم المطلوب 


bı date address 
سو چاج‎ 
Fee 

سو هاج 


42271 996 


-١‏ نموذج البحث عن بيانات الطلاب 


ا ٠‏ ل 
1X CEILI‏ 


3 date 2 tima 

EEEFETIE] 2:00: AM 
27272010 B:20:00 AM 
37272010 8:00:00 AM 
EFER 4: DD: DD A. 


-١‏ نموذج بحث عن الحضور 


7 tu 


۲- نموذج تسجیل مستخدم جدید 


برنامج متابعة حضور السكاشن 
اعداد مجموعة 4 لعام 2010 
فحت إشراف 
A O NE‏ 
ا راان 


الاستادة] تهانى تام عطلية الدقيقي 


MAA 


۳ e 


۳- نموذج عن معلومات الدعم الفنى 
اعداد /أحمد فتحى محمد سليمان الشريف الجلوى 
حافظة سوهاج مركز ساقلنة الجلاوية 
mail:tv22000@yahoo.com_ڑE‏ 
Tel:002/0107976725‏ 
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